home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / pc / main.dxr / 00056_ok.ls < prev    next >
Encoding:
Text File  |  2009-10-06  |  1.0 KB  |  45 lines
  1. on mouseDown
  2.   sprite(50).member = "buttonDown"
  3. end
  4.  
  5. on mouseUp
  6.   global speed
  7.   sprite(50).member = "buttonUp"
  8.   if member("but1").hilite = 1 then
  9.     temp = value(member("copyNumber").text)
  10.     if temp = 0 then
  11.       alert("You need to enter the amount of copies you want.")
  12.     else
  13.       printText()
  14.     end if
  15.   end if
  16.   if member("but2").hilite = 1 then
  17.     temp = value(member("copyNumber").text)
  18.     if temp = 0 then
  19.       alert("You need to enter the amount of copies you want.")
  20.     else
  21.       printCurrentGraphic()
  22.     end if
  23.   end if
  24.   if member("but3").hilite = 1 then
  25.     printLessonColor()
  26.   end if
  27.   if member("but4").hilite = 1 then
  28.     printLessonBW()
  29.   end if
  30.   if (speed = "slow") and (sprite(44).locV > 91) then
  31.     repeat with x = 38 to 54
  32.       sprite(x).locV = sprite(x).locV - 230
  33.     end repeat
  34.   else
  35.     repeat while sprite(44).locV > -82
  36.       repeat with x = 38 to 54
  37.         sprite(x).locV = sprite(x).locV - 10
  38.       end repeat
  39.       updateStage()
  40.     end repeat
  41.   end if
  42.   sprite(6).visible = 1
  43.   sprite(40).visible = 0
  44. end
  45.